home *** CD-ROM | disk | FTP | other *** search
/ Power CD / Power CD ATARI-Rechner Lieben.iso / UTILITY / MIDI8031 / CODE.S51 < prev    next >
Encoding:
Text File  |  1987-04-21  |  766 b   |  44 lines
  1. ; ****** Rauschgenerator *******
  2. ; * Lautsprecher am Pin P1.0 und +5Volt an der Buchsenleiste
  3. ; * anschliessen. Vor den Lautsprecher einen Vorwiderstand
  4. ; * schalten: Niederohmige Lautsprecher (4-8 Ohm) Vorwied: 220 Ohm
  5. ; * Mittelohmige Lautsprecher Vorwied: 150 Ohm.
  6. ; * Besser aber ist die Schaltung von PHONEM.S51
  7.  
  8.  
  9.     .registers reg51.inc
  10.  
  11. sreg=124
  12.  
  13.     .text_org $8000
  14.  
  15. ; *** Hauptprogramm *****
  16. go:
  17.     mov sreg,#0
  18.     mov sreg+1,#0
  19.     mov sreg+2,#0
  20.     mov sreg+3,#0
  21. neu:
  22.     mov A,sreg+3
  23.     mov C,ACC.6
  24.     mov ACC.1,C
  25.     xrl A,SREG+2
  26.     mov c,ACC.1
  27.     cpl c
  28. schiebe:    
  29.     mov A,SREG
  30.     rlc A
  31.     mov SREG,A
  32.     mov A,SREG+1
  33.     rlc A
  34.     mov SREG+1,A
  35.     mov A,SREG+2
  36.     rlc A
  37.     mov SREG+2,A
  38.     mov A,SREG+3
  39.     rlc A
  40.     mov SREG+3,A
  41.     mov P1,SREG+3            ; an Port!
  42.  
  43.     sjmp neu    
  44.